/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / blitzbasic21 / examples / stevemc / sheet.bb2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |;=======|========|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 00 3b 20 44 72 61 77 | 20 61 20 6e 69 63 65 20 |=.; Draw| a nice |
|00000050| 27 73 68 65 65 74 27 20 | 6f 66 20 64 6f 74 73 2e |'sheet' |of dots.|
|00000060| 2e 2e 2e 00 3b 20 57 72 | 69 74 74 65 6e 20 62 79 |....; Wr|itten by|
|00000070| 20 53 74 65 70 68 65 6e | 20 4d 63 4e 61 6d 61 72 | Stephen| McNamar|
|00000080| 61 20 6f 66 20 4c 65 61 | 64 69 6e 67 20 45 64 67 |a of Lea|ding Edg|
|00000090| 65 20 53 6f 66 74 77 61 | 72 65 00 3b 00 3b 20 41 |e Softwa|re.;.; A|
|000000a0| 6c 74 65 72 20 23 6e 75 | 6d 5f 6c 61 79 65 72 73 |lter #nu|m_layers|
|000000b0| 20 74 6f 20 63 68 61 6e | 67 65 20 74 68 65 20 6e | to chan|ge the n|
|000000c0| 75 6d 62 65 72 20 6f 66 | 20 64 6f 74 73 20 69 6e |umber of| dots in|
|000000d0| 20 74 68 65 20 73 68 65 | 65 74 2c 00 3b 20 20 6d | the she|et,.;  m|
|000000e0| 75 73 74 20 62 65 20 62 | 65 74 77 65 65 6e 20 31 |ust be b|etween 1|
|000000f0| 20 61 6e 64 20 37 39 20 | 74 68 6f 75 67 68 21 00 | and 79 |though!.|
|00000100| 3b 20 48 69 67 68 65 72 | 20 6e 75 6d 62 65 72 73 |; Higher| numbers|
|00000110| 20 66 6f 72 20 66 61 73 | 74 65 72 20 70 72 6f 63 | for fas|ter proc|
|00000120| 65 73 73 6f 72 73 21 00 | 3b 3d 3d 3d 3d 3d 3d 3d |essors!.|;=======|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 00 00 23 6e 75 6d 5f |========|=..#num_|
|00000170| 6c 61 79 65 72 73 3d 37 | 39 00 00 80 1c 20 23 6e |layers=7|9.... #n|
|00000180| 75 6d 5f 6c 61 79 65 72 | 73 3c 31 20 80 8a 20 23 |um_layer|s<1 .. #|
|00000190| 6e 75 6d 5f 6c 61 79 65 | 72 73 3e 37 39 00 20 20 |num_laye|rs>79.  |
|000001a0| dd 82 20 22 49 6c 6c 65 | 67 61 6c 20 6e 75 6d 62 |.. "Ille|gal numb|
|000001b0| 65 72 20 6f 66 20 6c 61 | 79 65 72 73 21 22 00 20 |er of la|yers!". |
|000001c0| 20 80 0a 00 20 20 80 02 | 00 80 1f 00 00 3b 20 43 | ...  ..|.....; C|
|000001d0| 6c 65 61 72 20 61 20 66 | 6f 75 72 20 62 69 74 70 |lear a f|our bitp|
|000001e0| 6c 61 6e 65 20 62 69 74 | 6d 61 70 20 72 65 61 6c |lane bit|map real|
|000001f0| 6c 79 20 71 75 69 63 6b | 6c 79 2e 2e 2e 2e 00 80 |ly quick|ly......|
|00000200| 08 20 61 73 73 65 6d 62 | 6c 65 72 5f 63 6c 73 7b |. assemb|ler_cls{|
|00000210| 61 2e 6c 7d 00 20 20 80 | b1 20 61 34 20 3a 20 80 |a.l}.  .|. a4 : .|
|00000220| 7e 2e 6c 20 61 36 2c 2d | 28 61 37 29 20 3a 20 80 |~.l a6,-|(a7) : .|
|00000230| 7e 2e 6c 20 64 30 2c 61 | 36 20 3a 20 80 40 2e 6c |~.l d0,a|6 : .@.l|
|00000240| 20 23 38 2c 61 36 00 20 | 20 80 7e 2e 6c 20 28 61 | #8,a6. | .~.l (a|
|00000250| 36 29 2b 2c 61 30 3a 80 | 3d 2e 6c 20 23 34 30 2a |6)+,a0:.|=.l #40*|
|00000260| 32 30 30 2c 61 30 00 20 | 20 80 81 20 23 30 2c 64 |200,a0. | .. #0,d|
|00000270| 30 3a 80 81 20 23 30 2c | 64 31 3a 80 81 20 23 30 |0:.. #0,|d1:.. #0|
|00000280| 2c 64 32 3a 80 81 20 23 | 30 2c 64 33 3a 80 81 20 |,d2:.. #|0,d3:.. |
|00000290| 23 30 2c 64 34 00 20 20 | 80 81 20 23 30 2c 64 35 |#0,d4.  |.. #0,d5|
|000002a0| 3a 80 81 20 23 30 2c 64 | 36 3a 80 7e 2e 6c 20 64 |:.. #0,d|6:.~.l d|
|000002b0| 30 2c 61 31 3a 80 7e 2e | 6c 20 64 30 2c 61 32 3a |0,a1:.~.|l d0,a2:|
|000002c0| 80 7e 2e 6c 20 64 30 2c | 61 33 00 20 20 80 7e 20 |.~.l d0,|a3.  .~ |
|000002d0| 23 31 39 39 2c 64 37 00 | 20 20 6c 6f 6f 70 31 3a |#199,d7.|  loop1:|
|000002e0| 80 82 2e 6c 20 64 30 2d | 64 36 2f 61 31 2d 61 33 |...l d0-|d6/a1-a3|
|000002f0| 2c 2d 28 61 30 29 3a 80 | 6f 20 64 37 2c 6c 6f 6f |,-(a0):.|o d7,loo|
|00000300| 70 31 00 00 20 20 80 7e | 2e 6c 20 28 61 36 29 2b |p1..  .~|.l (a6)+|
|00000310| 2c 61 30 3a 80 3d 2e 6c | 20 23 34 30 2a 32 30 30 |,a0:.=.l| #40*200|
|00000320| 2c 61 30 00 20 20 80 7e | 20 23 31 39 39 2c 64 37 |,a0.  .~| #199,d7|
|00000330| 00 20 20 6c 6f 6f 70 32 | 3a 80 82 2e 6c 20 64 30 |.  loop2|:...l d0|
|00000340| 2d 64 36 2f 61 31 2d 61 | 33 2c 2d 28 61 30 29 3a |-d6/a1-a|3,-(a0):|
|00000350| 80 6f 20 64 37 2c 6c 6f | 6f 70 32 00 00 20 20 80 |.o d7,lo|op2..  .|
|00000360| 7e 2e 6c 20 28 61 36 29 | 2b 2c 61 30 3a 80 3d 2e |~.l (a6)|+,a0:.=.|
|00000370| 6c 20 23 34 30 2a 32 30 | 30 2c 61 30 00 20 20 80 |l #40*20|0,a0.  .|
|00000380| 7e 20 23 31 39 39 2c 64 | 37 00 20 20 6c 6f 6f 70 |~ #199,d|7.  loop|
|00000390| 33 3a 80 82 2e 6c 20 64 | 30 2d 64 36 2f 61 31 2d |3:...l d|0-d6/a1-|
|000003a0| 61 33 2c 2d 28 61 30 29 | 3a 80 6f 20 64 37 2c 6c |a3,-(a0)|:.o d7,l|
|000003b0| 6f 6f 70 33 00 00 20 20 | 80 7e 2e 6c 20 28 61 36 |oop3..  |.~.l (a6|
|000003c0| 29 2b 2c 61 30 3a 80 3d | 2e 6c 20 23 34 30 2a 32 |)+,a0:.=|.l #40*2|
|000003d0| 30 30 2c 61 30 00 20 20 | 80 7e 20 23 31 39 39 2c |00,a0.  |.~ #199,|
|000003e0| 64 37 00 20 20 6c 6f 6f | 70 34 3a 80 82 2e 6c 20 |d7.  loo|p4:...l |
|000003f0| 64 30 2d 64 36 2f 61 31 | 2d 61 33 2c 2d 28 61 30 |d0-d6/a1|-a3,-(a0|
|00000400| 29 3a 80 6f 20 64 37 2c | 6c 6f 6f 70 34 00 00 20 |):.o d7,|loop4.. |
|00000410| 20 80 7e 2e 6c 20 28 61 | 37 29 2b 2c 61 36 00 20 | .~.l (a|7)+,a6. |
|00000420| 20 80 94 00 00 80 02 20 | 80 08 00 00 80 04 20 73 | ...... |...... s|
|00000430| 6e 28 37 31 39 29 2c 73 | 6e 32 28 37 31 39 29 2c |n(719),s|n2(719),|
|00000440| 62 69 74 61 64 64 72 65 | 73 73 2e 6c 28 31 29 00 |bitaddre|ss.l(1).|
|00000450| 80 04 20 73 74 61 72 74 | 78 2e 77 28 39 39 29 2c |.. start|x.w(99),|
|00000460| 73 74 61 72 74 79 2e 77 | 28 39 39 29 00 00 80 0b |starty.w|(99)....|
|00000470| 20 bc 0c 3d 32 30 30 00 | 20 20 6f 66 66 73 65 74 | ..=200.|  offset|
|00000480| 2e 77 3d 30 00 80 22 00 | 20 20 6f 66 66 73 65 74 |.w=0..".|  offset|
|00000490| 2e 77 3d 32 38 00 80 c0 | 00 00 d0 01 20 30 2c 33 |.w=28...|.... 0,3|
|000004a0| 32 30 2c 32 30 30 2c 34 | 00 d0 01 20 31 2c 33 32 |20,200,4|... 1,32|
|000004b0| 30 2c 32 30 30 2c 34 00 | 80 2c 20 d0 01 20 30 00 |0,200,4.|., .. 0.|
|000004c0| c7 02 20 30 00 b2 05 00 | 80 34 00 c7 82 20 30 2c |.. 0....|.4... 0,|
|000004d0| 34 34 2b 6f 66 66 73 65 | 74 2c 32 30 30 2c 24 34 |44+offse|t,200,$4|
|000004e0| 2c 38 2c 31 36 2c 30 00 | 00 c7 84 20 30 2c 30 00 |,8,16,0.|... 0,0.|
|000004f0| 00 80 16 20 68 3d 30 20 | 80 18 20 31 35 00 20 20 |... h=0 |.. 15.  |
|00000500| ce 0a 20 30 2c 68 2c 68 | 2c 68 2c 68 00 80 17 20 |.. 0,h,h|,h,h... |
|00000510| 68 00 00 c7 86 20 30 2c | 30 00 c7 83 20 30 00 00 |h.... 0,|0... 0..|
|00000520| 80 16 20 68 3d 30 20 80 | 18 20 33 35 39 00 20 20 |.. h=0 .|. 359.  |
|00000530| 61 3d 28 68 2a 80 ba 29 | 2f 31 38 30 00 20 20 73 |a=(h*..)|/180.  s|
|00000540| 6e 28 68 29 3d e0 0a 28 | 61 29 00 20 20 73 6e 28 |n(h)=..(|a).  sn(|
|00000550| 68 2b 33 36 30 29 3d 73 | 6e 28 68 29 00 80 17 20 |h+360)=s|n(h)... |
|00000560| 68 00 00 80 16 20 68 3d | 30 20 80 18 20 33 35 39 |h.... h=|0 .. 359|
|00000570| 00 20 20 73 6e 32 28 68 | 29 3d 73 6e 28 68 2a 32 |.  sn2(h|)=sn(h*2|
|00000580| 29 00 20 20 73 6e 32 28 | 68 2b 33 36 30 29 3d 73 |).  sn2(|h+360)=s|
|00000590| 6e 28 68 2a 32 29 00 80 | 17 20 68 00 00 73 74 65 |n(h*2)..|. h..ste|
|000005a0| 70 5f 76 61 6c 75 65 2e | 77 3d 38 30 2f 28 23 6e |p_value.|w=80/(#n|
|000005b0| 75 6d 5f 6c 61 79 65 72 | 73 2b 31 29 00 80 16 20 |um_layer|s+1)... |
|000005c0| 68 3d 30 20 80 18 20 23 | 6e 75 6d 5f 6c 61 79 65 |h=0 .. #|num_laye|
|000005d0| 72 73 00 20 20 73 74 61 | 72 74 78 28 68 29 3d 38 |rs.  sta|rtx(h)=8|
|000005e0| 30 2d 68 2a 73 74 65 70 | 5f 76 61 6c 75 65 20 3a |0-h*step|_value :|
|000005f0| 20 73 74 61 72 74 79 28 | 68 29 3d 31 30 31 2d 68 | starty(|h)=101-h|
|00000600| 2a 73 74 65 70 5f 76 61 | 6c 75 65 00 80 17 20 68 |*step_va|lue... h|
|00000610| 00 00 64 62 75 66 66 65 | 72 3d 30 00 00 62 69 74 |..dbuffe|r=0..bit|
|00000620| 61 64 64 72 65 73 73 28 | 30 29 3d 80 b8 20 d0 01 |address(|0)=.. ..|
|00000630| 28 30 29 00 62 69 74 61 | 64 64 72 65 73 73 28 31 |(0).bita|ddress(1|
|00000640| 29 3d 80 b8 20 d0 01 28 | 31 29 00 00 73 74 61 72 |)=.. ..(|1)..star|
|00000650| 74 61 6e 67 6c 3d 30 00 | 00 80 bb 00 20 20 80 37 |tangl=0.|....  .7|
|00000660| 00 20 20 c7 84 20 30 2c | 64 62 75 66 66 65 72 00 |.  .. 0,|dbuffer.|
|00000670| 20 20 64 62 75 66 66 65 | 72 3d 31 2d 64 62 75 66 |  dbuffe|r=1-dbuf|
|00000680| 66 65 72 00 20 20 80 2c | 20 d0 01 20 64 62 75 66 |fer.  .,| .. dbuf|
|00000690| 66 65 72 00 20 20 61 73 | 73 65 6d 62 6c 65 72 5f |fer.  as|sembler_|
|000006a0| 63 6c 73 7b 62 69 74 61 | 64 64 72 65 73 73 28 64 |cls{bita|ddress(d|
|000006b0| 62 75 66 66 65 72 29 7d | 00 00 20 20 61 6e 67 3d |buffer)}|..  ang=|
|000006c0| 73 74 61 72 74 61 6e 67 | 6c 00 20 20 73 74 61 72 |startang|l.  star|
|000006d0| 74 61 6e 67 6c 2b 31 35 | 20 3a 20 80 0b 20 73 74 |tangl+15| : .. st|
|000006e0| 61 72 74 61 6e 67 6c 3e | 33 35 39 20 80 21 20 73 |artangl>|359 .! s|
|000006f0| 74 61 72 74 61 6e 67 6c | 3d 73 74 61 72 74 61 6e |tartangl|=startan|
|00000700| 67 6c 20 80 b9 20 33 36 | 30 00 20 20 80 16 20 73 |gl .. 36|0.  .. s|
|00000710| 74 61 3d 30 20 80 18 20 | 23 6e 75 6d 5f 6c 61 79 |ta=0 .. |#num_lay|
|00000720| 65 72 73 00 20 20 20 20 | 64 69 73 74 3d 73 74 61 |ers.    |dist=sta|
|00000730| 72 74 78 28 73 74 61 29 | 00 20 20 20 20 78 2e 77 |rtx(sta)|.    x.w|
|00000740| 3d 64 69 73 74 20 3a 20 | 79 61 2e 77 3d 73 74 61 |=dist : |ya.w=sta|
|00000750| 72 74 79 28 73 74 61 29 | 00 20 20 20 20 78 32 2e |rty(sta)|.    x2.|
|00000760| 77 3d 78 20 3a 20 63 6f | 6c 2e 62 3d 31 2b 78 32 |w=x : co|l.b=1+x2|
|00000770| 20 80 45 20 33 00 00 20 | 20 20 20 61 6e 67 2b 32 | .E 3.. |   ang+2|
|00000780| 20 3a 20 80 0b 20 61 6e | 67 3e 33 35 39 20 80 21 | : .. an|g>359 .!|
|00000790| 20 61 6e 67 2d 33 36 30 | 00 20 20 20 20 76 61 6c | ang-360|.    val|
|000007a0| 75 65 2e 71 3d 73 6e 28 | 61 6e 67 29 2a 64 69 73 |ue.q=sn(|ang)*dis|
|000007b0| 74 00 00 20 20 20 20 74 | 65 6d 70 2e 77 3d 78 2d |t..    t|emp.w=x-|
|000007c0| 78 32 00 20 20 20 20 80 | 16 20 68 3d 30 20 80 18 |x2.    .|. h=0 ..|
|000007d0| 20 35 32 20 80 19 20 38 | 00 20 20 20 20 20 20 79 | 52 .. 8|.      y|
|000007e0| 2e 77 3d 79 61 2b 73 6e | 32 28 74 65 6d 70 29 2a |.w=ya+sn|2(temp)*|
|000007f0| 76 61 6c 75 65 00 20 20 | 20 20 20 20 b2 03 20 78 |value.  |    .. x|
|00000800| 2c 79 2c 63 6f 6c 00 00 | 20 20 20 20 20 20 79 2e |,y,col..|      y.|
|00000810| 77 3d 79 61 2b 73 6e 32 | 28 74 65 6d 70 2b 34 29 |w=ya+sn2|(temp+4)|
|00000820| 2a 76 61 6c 75 65 00 20 | 20 20 20 20 20 b2 03 20 |*value. |     .. |
|00000830| 78 2b 34 2c 79 2c 63 6f | 6c 00 00 20 20 20 20 20 |x+4,y,co|l..     |
|00000840| 20 79 2e 77 3d 79 61 2b | 73 6e 32 28 74 65 6d 70 | y.w=ya+|sn2(temp|
|00000850| 2b 38 29 2a 76 61 6c 75 | 65 00 20 20 20 20 20 20 |+8)*valu|e.      |
|00000860| b2 03 20 78 2b 38 2c 79 | 2c 63 6f 6c 00 00 20 20 |.. x+8,y|,col..  |
|00000870| 20 20 20 20 79 2e 77 3d | 79 61 2b 73 6e 32 28 74 |    y.w=|ya+sn2(t|
|00000880| 65 6d 70 2b 31 32 29 2a | 76 61 6c 75 65 00 20 20 |emp+12)*|value.  |
|00000890| 20 20 20 20 b2 03 20 78 | 2b 31 32 2c 79 2c 63 6f |    .. x|+12,y,co|
|000008a0| 6c 00 00 20 20 20 20 20 | 20 79 2e 77 3d 79 61 2b |l..     | y.w=ya+|
|000008b0| 73 6e 32 28 28 74 65 6d | 70 2b 31 36 29 29 2a 76 |sn2((tem|p+16))*v|
|000008c0| 61 6c 75 65 00 20 20 20 | 20 20 20 b2 03 20 78 2b |alue.   |   .. x+|
|000008d0| 31 36 2c 79 2c 63 6f 6c | 00 00 20 20 20 20 20 20 |16,y,col|..      |
|000008e0| 79 2e 77 3d 79 61 2b 73 | 6e 32 28 28 74 65 6d 70 |y.w=ya+s|n2((temp|
|000008f0| 2b 32 30 29 29 2a 76 61 | 6c 75 65 00 20 20 20 20 |+20))*va|lue.    |
|00000900| 20 20 b2 03 20 78 2b 32 | 30 2c 79 2c 63 6f 6c 00 |  .. x+2|0,y,col.|
|00000910| 00 20 20 20 20 20 20 79 | 2e 77 3d 79 61 2b 73 6e |.      y|.w=ya+sn|
|00000920| 32 28 28 74 65 6d 70 2b | 32 34 29 29 2a 76 61 6c |2((temp+|24))*val|
|00000930| 75 65 00 20 20 20 20 20 | 20 b2 03 20 78 2b 32 34 |ue.     | .. x+24|
|00000940| 2c 79 2c 63 6f 6c 00 00 | 20 20 20 20 20 20 79 2e |,y,col..|      y.|
|00000950| 77 3d 79 61 2b 73 6e 32 | 28 28 74 65 6d 70 2b 32 |w=ya+sn2|((temp+2|
|00000960| 38 29 29 2a 76 61 6c 75 | 65 00 20 20 20 20 20 20 |8))*valu|e.      |
|00000970| b2 03 20 78 2b 32 38 2c | 79 2c 63 6f 6c 00 00 20 |.. x+28,|y,col.. |
|00000980| 20 20 20 20 20 74 65 6d | 70 2b 33 32 00 20 20 20 |     tem|p+32.   |
|00000990| 20 20 20 78 2b 33 32 00 | 20 20 20 20 80 17 20 68 |   x+32.|    .. h|
|000009a0| 00 20 20 80 17 20 73 74 | 61 00 00 80 bc 20 df 04 |.  .. st|a.... ..|
|000009b0| 28 30 29 00 c8 0a 00 80 | 36 00 80 02 00 00       |(0).....|6.....  |
+--------+-------------------------+-------------------------+--------+--------+